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AUTHOR: 
D. N. CUTLER, 14=JUN-76 
FACILITY: 
SYSTEM SERVICE QUEUE I/0 REQUEST 
MODIFIED BY: 
v04-001 ACG0467 Andrew C. Goldstein, LY Pega ber 17:33 
Fix protection holes in Q10 device protection check 
v03-012 LMP0221 be. k Pilant, 30-Mar-1984 17:08 
Remove references A *OCBSL _OWNUIC and uchBSU. VPROT. 
v03-011 $RB0118 Steve Beckhardt 23-Mar-1984 
Changed waiting for DIOCNT or BIOCNT to seit. at IPL 0. 
v03-010 ceseees hristian 0 Saether 20-Mar-1984 


use. symbolic definit - fo locate XQP queue header. 
he XQP ast a priority boost. 


v03-009 sSA0017 Stan Amway 9-Mar-1984 
Maint Mt he evice queue len ngth ucB. 
Efficiently supports MONITORs eB: class and provides 
accurate queue lengths for HSC and UDA disks. 
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v03-008 ay a - Mark Pilan 7-Mar-1984 12:20 
nl an access “check on 1 first Q10 to “the channel for 
og x. and physical requests. 


v03-007 LMP0185 Mark Pilant, 27-Jan-1984 11:05 
Add support for Acts on devices. 
v03-006 coscens Christian D. Soothe r 20-May-1983 


he PID from | PCB ineseed oF RP so that 
cures Ling works (it uses the irp p a° field for 
something else). 


V03-005 RLRMXBCNTc Robert L. Rappaport ote ig B 


Verif TRPSL _D IAGBUF "is non-zero before assumin t it 
contains the original value of IRPSL OSVAPTE in IRTUAL. LOGIO. 
v03-004 CDS0003 Christian D. Saether 14-Mar-1983 


Return from EXESGXOPPRT with status, rather than 
assuming success. 


v03-003 cdS0002 Christian D. Saether 12-Mar-1983 
Do not insque packet to xqp work queue in EXESQXQPPKT, 
but rather pass it as the ast pereneser and queue it 
in the xqp, if necessary. This avoids a preston 
where the packet is processed by the xap before the 
ast is dequeued. 
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o v03-002 ¢DS0001 C Saether 13-Aug-1982 
0 | Changes to send file. system packets to XQP. 

09 v03-001 LJK0172 ence J. Kenah 18-June-1982 
0 Count 1/0 operat ons in EXESBLDPKTxxxx to allow file 


expiration to work correctly for mapped files. 
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MACRO LIBRARY CALLS 


nn 
a 
uw 
i ” 
- 
= tw 
wn Yn wn ” 
< w | -_— ve 
= a iv} zw io 
a o > ¥ a So 
wow uw —aW 
> a) w we 4 
a) uu nec = vo 
2 a > aw u o 
> We wz —_ 
Lv) —- we -—— Ww @ 
w NOE nn = 
7) wreOoOo NW oy 
< Qwuoe- 2oNnrF<ke- Ww So 
wn 2" = wt Ww = 
NNWINEMW —MuU ZANE IOV IHV 3H 
ee MO eee WY Be ee 


VaQvaacaw<e - OZSVITeee wwe Vue 
ECOVVV AOC Bw. 0.000040 2NnN5D>3 


ss dL Ws 
2222222222222 222222222222 
em Oa Oa End ad Bon tong Dag and Ea Oe DG ad GG nd Sod Pa CO] Soe} Ban Dg a Ea Od 
BVUBMEBEBLEBLEBEE MEE EEE 
dd ed sd a 
AQAABAAAAAARAKDAGBAAAGABAAAAAGhaAhaha 


#e Oe FO FS FS FO FS FS FS FS FS FS FS OS FR FS FS FS OS FS FR FR TRS SD 


ke a 
ee 41MIN UO. 


YO ELVOCOW$S—- O4 SVTSESLAEVVHWKVHVVY 
E£QVVV OOO Oe. §t110.06.0000 2MnW5>3 
PAAAAAAA AARAPRAAAAAAAAAAAA 


LOCAL SYMBOLS 


Wenge eu ewww 
ee *e ee £6 8°66 6 46 6 46 


ARGUMENT LIST OFFSET DEFINITIONS 


STADR= 


nnn 
“#Zvo@ 
= 5S na 

cocoee WVU EECOOA0000. 


be 4 
”" 
ue 
” 
uw 
a 
= 
s- 
mae 
— 
wm 
— 
vw 
wuz 
= 
au 
<= 
” uo 
2 wn 
So an 
— eere 
a 
— 
2 
— 
rv 
(se) 
[—) 
— 
bas 
” 
om 
rr 
o 
w 
a 
@ 
x 
— 
z 
o 
— 
wn 
— 
(=) 
[sey 
a 
z 
So 
oad oO 
to oun 
re) ee) 
z aay. © 
, 
re J 
wo 


FM OR DRO K— AUN TM OR. DRO K— CUM TN OR. DAO K— CUM SIN OR DHOK— CUM SFNOR.DROK— CIM FINOL.ODO 
POAAAROCOCCDCQDDQ GO ee IONIC CIC CIC CIIIIITIVITITVINS SF SF FST TTT 


Seat, seek see pentane see Settle, see_all coe eel eel sel eee sel ee corel Semele eee seme eel el cee ee oe cee ce oe coe coe peel see eel oe el ce ce cee ee oe ee ee ee 


n 
< 


M11 
voe-001 seQUERE HGQaMERUEST SYSTEM senvicE ©” Ygnser—tage ezsHs VARS taere ADLcOR,,. Pane v0 


00000010 FDTACT=16 sACTION ROUTINE MASKS 
0 
0 
0 
0 
° 
0 
0 


: 
0 
0 
0 
0 
0 
0 


: TABLES 7 DETERMINING THE ACCESS DESI 
; CODE. THIS IS NECESSARY FOR THE FIRST 
g : ; ON SHARABLE, NON-MOUNTABLE (NON-FILES 


«MACRO ACCMSK CODES 
MASKL = 
MASKH = 


P —-X, <CODES> 
Gf <10$_'X810$_VIRTUAL>-31 
KH!<18<<10$_'X8T0$_VIRTUAL>-32>> 


3 MASKH gsk 
Der te <cl0 *X810$_VIRTUAL>> 
DR 


MASKL 
; Gt _ RB10$_VIRTUAL>=31 
: CODES> 

RASKL MASKH 


READ_ACCESS: 
ACCMSK <READPBLK, READLBLK, READVBLK,- 
READHEAD READ TRACKD, REREADN, REREADP, - 
READPROMPT, TTYREADALL, TTYREADPALL> 
WRITE_ACCESS: 
ACCMSK ITEPBLK ,WRITELBLK ,WRITEVBLK,- 
WRI TECHECK, WRI TECHECKH,- 
ITEHEAD ,WRITETR 


1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
: 
1 ACKD ,WRITERET> 
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: ~SBTTL Q10 ERROR AND EXCEPTION HANDLING ROUTINES 
} ! ; Device is not mountable. See if it is necessary to do the protection check. 
1 1 : NOT_FILE_ DEV: 
8 3 AS 19 E1 1 1 § 6BC #DEVSV_SHR ucest dD DEVCHAR(RS) 208 =XFER IF NOT SHARABLE 
3 1 0015 #1 BBC R READ A ActESS, 10$ FER F NOT A READ FUNCTION 
8 Nb 2 1A = 190 BBS ace V_RDCHKDON, CCBSB_ sréth ),10$ >XFER IF HERE ALREADY 
FFDE® 1fF 3191 BSBW EXESCHRRDACCES PROTECTION CHECK 
2 19¢ BLEC =soR Banton Cr R IF NOT SUCCESSFUL 
08 AB 04 8 1 BISB ac CBsn $M_ROCH CHKDON. CCBSB._ srith ) “NOTE PROT CHECK MADE 
OF DB AF f e 9 194 10$: BBC R ACCESS, XFER IF NOT A WRITE FUNCTION 
A 08 A6 ; 5 195 BBS sctBRV Matas ON, CCBSB_ s#5(R6) 20$ ‘sXFER IF HERE ALREADY 
FECA’ 196 BSBW EXE CHRWRTACCES :D0 PROTECTION CHECK 
16 50 § 1 BLBC RORB *XFER IF NOT SUCCESSFUL 
08 A6 08 a 198 BISB actasn _WRTCHKDON, CCBSB_STS(R6) sNOTE PROT CHECK MADE 
009 1 30 199 2 208: BRW sELSE REJOIN MAINLINE CODE 
4 8 MISCELLANEOUS ERROR HANDLING AND EXCEPTION HANDLING ROUTINES. THESE HAVE 
. i ; BEEN MOVED OUT OF LINE TO MAKE THE COMMON PATH NEARLY BRANCH FREE. 
04 :? 
04 5 CLREF: : 
FFBD' 30 004 $ BSBW SCHSCLREF CLEAR SPECIFIED EVENT FLAG 
4 11 4 BRB N sCONTINUE WITH Q10 
50 013c BF 3C 4 § IVCHAN: MOVZWL #SS$_IVCHAN,RO :SET ERROR STATUS 
03 1 4A 20 R :AND ERROR REQUEST 
50 24 3C 004C 10 PRIVERR: MOVZWL #SS$_NOPRIV,RO 3SET ERROR STATUS 
OopF = 31 O06 i ERRORB: BRW ERROR :AND ERROR REQUEST 
05 1 : 
098 14 ; An access or deaccess operation. is pending for this channel. Wait for 
b2 1g 3 it to complete, then retry the QI0. 
5 | Be 
abs 18 DACSPND:SETIPL #IPL$_SYNCH :SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
AG 01 3¢ 05 19 MOVZWL #RSNS” ASTUAIT ‘Pc $L -EFUMERG) >SET AST WAIT RESOURCE NUMBER 
so" 0000' CF : 05 0 MOVAQ ue SCHSGQ MUAIT T ADDRESS OF WAIT QUEUE 
00 O000'CF 4C AG § OE 1 BBSS CBSL Cr OMCR ),W*SCHSGL AESIMSK 10$ ;SET WAITING FLAG 
FF98" 31 06 ¢1 10$: BRW ccH HSWAIT WAIT FOR AST 
0 ? 33 : Device is marked spooled. Acquire hl 8 UCB address if virtual funtion. 
57 2F 01 68 $ §Po0L: CMPL S*#10$_LOGICAL,R7 sVIRTUAL 1/0 FUNCTION? 
9 18 BGEQ OOL s1F GE 
55 60A5 OD $0 8 MOVL §UCBSL_AMB(RS),RS5 sGET INTERMEDIATE DEVICE UCB ADDRESS 
SA f 4 BRB NSPOOL : 
4 1 : Intermediate branch to the protection checking routine. 
v4 § NOT_FILE_DEVB: 
98 «(11 7 4 BRB NOT_FILE_DEV 
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? .SBTTL QUEUE 1/0 REQUEST 

, EXESQIOREQ = QUEUE 1/0 REQUEST 

? THIS SERVICE PROVIDES THE CAPABILITY TO INITIATE AN 1/0 OPERATION 

; BY QUEUEING A REQUEST TO A DEVICE'S ASSOCIATED DRIVER. ONCE T 

? OPERATION HAS BEEN INITIATED: CONTROL GILL RETURN TO THEM acLER 

? WHO CAN SYNCHRONIZE 1/0 COMPLETION IN ONE OF THREE WAYS: 


1) SPECIFY THE ADDRESS OF AN AST ROUTINE THAT WILL BE 
EXECUTED WHEN THE I/O COMPLETES. 


2) WAIT FOR THE SPECIFIED EVENT FLAG TO BE SET. 
3) POLL THE SPECIFIED 1/0 STATUS BLOCK FOR A COMPLETION 


DENT PARAMETERS, ALLOCATES 
DEPENDENT PARAMETER S AND 


ooo 
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FUSPUSUSUSVSUSUSUSVOS ISU | Oe 
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INPUTS: 
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< em 
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A ; SERVICE ROUTINE. 
E ROUT 
TION DEPENDENT PARAMETERS. 


CB ADDRESS. 
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) 
R4 = CURRENT PROCES 
OUTPUTS: 

RO LOW BIT CLEAR INDICATES FAILURE TO INITIATE THE 1/0 REQUEST. 
RO = SS$_ABORT = A NETWORK LOGICAL LINK WAS BROKEN. 


RO = SS$_ACCVIO = THE I/0 STATUS BLOCK CANNOT BE WRITTEN BY 
THE CALLER. 


RO = SS$_DEVOFFLINE - THE SPECIFIED DEVICE IS OFFLINE. 

RO = SS$_EXQUOTA = THE PROCESS HAS EXCEEDED ITS BUF FERED 1/0 
GUOTA, DIRECT 1/0 Q AauoTA OR BUFFERED 1/0 BYTE COUNT 
QUOTA’ AND HAS DISABLED RESOURCE WAIT MODE. OR, THE 
PROCESS HAS EXCEEDED” Ors AST LIMIT QUOTA 

RO = SS$_ILLEFC - AN ILLEGAL EVENT FLAG NUMBER WAS SPECIFIED. 


RO = SSS_INSFMEM - INSUFFICIENT DYNAMIC MEMORY IS AVAILABLE 


BDOOOOooooooooooooo 


OOOCOCCOCOOOCCOSoooooo 
RI OODNA NEW OS OD NAN E WN $$ O ONAN EWN SO OONAUE WO OONOUE WHO OONID me 
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$0 004 QUEUE 1/0 ReCuESS 1$=866- 138 9¢: qf: #5 YES. SRCISYSQIOREQ.MAR;2 . (1) V04: 
7 93 ; TO ALLOCATE AN I/O REQUEST PACKET AND THE PROCESS HAS 
f 3 : DISABLED RESOURCE WAIT MODE. 
f 38 ; RO = SS$_IVCHAN = AN INVALID CHANNEL NUMBER WAS SPECIFIED. 
7 98 ; RO = SS$_NOPRIV = THE SPECIFIED CHANNEL DOES NOT EXIST OR WAS 
7 : KSSIGNED FROM A MORE PRIVILEGED ACCESS MODE. OR, THE 
7 0; PROCESS DOES NOT HAVE THE PRIVILEGE TO PERFORM THE 
f : : SPECIFIED TYPE OF 1/0 FUNCTION ON THE DEVICE. 
4 2 ; RO = SS$_UNASEFC = UNASSOCIATED EVENT FLAG CLUSTER SPECIFIED. 
of 5: RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
07 : RO = SS$_NORMAL = NORMAL COMPLETION. 
7? oO 
OFFC 3F 10 -ENTRY EXESQIO,°M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
0077 \ : Clear specified event flag. For local event flags, this is done in Line. 
an 
5304 at 9a 0077 315 alo: MOVZBL EFN(AP),R3 3GET EVENT FLAG NUMBER 
3) 53)—S91)Ss«0078 1 CMPB RS, #63 3s CHECK FOR OCA 
£0 1A 007 1 BGTRU CURE s1F NO, MUST DO FULL CLREF 
00 50 A4 ES a88 18 BCC R3,PCBSL_EFCS(R4),VCHAN ;CLEAR SPECIFIED EVENT FLAG 
085 0 ; 
Baae ; : Validate channel number, compute CCB address and acquire UCB address. 
5 ° 
FFFFOOOF 8F CB es 4 VCHAN: BICL3 #<*XF FEFOOQO! <CCBSC _LENGTH=-1>>,-;FETCH CHANNEL NUMBER AND 
50 08 AC O88 5 CHAN(AP) ,RO : CLEAR EXTRANEOUS BITS 
83 13 9 $ BEQL IVCHAN sIF EQL INVALID CHANNEL 
00000000' 9F 30 Bt 090 : CHPW fae CHINDX sLEGAL CHANNEL NUMBER? 
50 ce 099 9 MNEGL R9 [CONVERT TO CHANNEL INDEX 
56 00000000" FF49 ve oot p MOVAB SefLSGL_ CCBBASELR9],R6 /GET ADDRESS OF CORRESPONDING CCB 
5B C3 92 16 EF A6 ¢ EXTZV #PSLSV_PRVMOD,APSLSS_ PRVAGD. R3,R11 sEXTRACT PREVIOUS MODE FIELD 
59 1 8 OOAB ASHL #16, sPREPARE CHANNEL INDEX FOR LATER MERGE 
09 A6 38 91 AF 4 CMPB =—s- R11, CCBSB_AMOD(R6) SCALLER HAVE PRIVILEGE TO ACCESS CHANNEL? 
eS 5 BGEQ PRIVERR : EQ NO 
55 66 OD $ MOVL CCBSL_UCB(R6 'GET ASSIGNED DEVICE UCB ADDRESS 
96 04 A6 CE 8 BLBS CCBSL “Uino cos BACSPND tIF LBS ACCESS/DEACCESS PENDING 
é es 
: rt) 3 Isolate function code and begin decoding 
c oe" 
SA OC AC 3 rk MOVZWL FUN CCAP) ,R10 :GET 1/0 FUNCTION CODE AND MODIFIERS 
57 SA  FFFFFFCO af cB ch 44 BICLS #C<IOSM_FCODE>,R10,R7_ : CLEAR ALL BUT 1/0 FUNCTION CODE 
38 aS 6006 COE C8 ie BBS S*#DEVSV~SPL, uCBsL _DEVCHAR(RS) SPOOL ;1F SET, DEVICE IS SPOOLED 
CD | 34 
cD $8 Acquire FDOT address. 
Cb | «0349; 
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cD 
‘1, 38 Aang 0 E1 Cc NSPOOL: BBC #DEVSV_FOD, ,.UCBSL_DEVCHAR(R5) ,NOT FILE _DEVB XFER IF NOT MOUNTAB 
008 ¢ D D CHKDON: HOVL UCBSL_BoT (AS) R :GE1 ADDRESS OF DOT 
. A dD D por L_FDT(RO),R 3GET ADDRESS OF FDT 
68 3 E DB 4 BBC R LEGAL (RB) {LLIO il CLR, ILLEGAL 1/0 FUNCTION 
39 64 A 4 €71 pf e BBC #uts V_ONLINE ,UCBSW_STS(R ) OFFLINE ;IF CLR, DEVICE OFFLINE 
E4 
71 2 ; Probe and clear I0SB if it is specified. 
E4 . 
51 10 ag 0 E4 é PRIOSB: MOVL IOSB(AP) ,R1 :GET ADDRESS OF 1/0 STATUS BLOCK 
0 1 €8 @L Oe eae s1F EQL NONE SPECIFI 
EA ? IFNOWRT #8,(R1),ACCVIO 3CAN 1/0 STATUS BLOCK BE WRITTEN? 
61 7 F 4 LRQs (RI) :CLEAR 1/0 STATUS BLOCK 
F 3 
F ; cherge. appropriate 1/0 counts Cqpendtog —en type. Counts will have to 
F 8 3 3; be backed out if no 1/0 packet is availab et IPL to block process 
: 79 : deletion once we are committed. 
F "° 
OOF i NOIOSB: SETIPL PL$_ASTDE apyeyen' PROCESS DELETION 
78 08 AS «657 =«6©E1 SOOO 7 io pi H ghineet TIF CLR, DIRECT 1/0 FUNCTION 
t's FA ri ASSUME In M_BUFIO £10 ALLOW INCREMENT BELOW 
SA AQ iB OFC £8 DECW Beige: 3; CHARGE oor ANOTHER BUFFERED 1/0 
79 «#18 OOFF 7 BGEQ 30K IF NOT NEGAT 
3A AG 3F 101 4 PUSHAW rp 2 erations sSET ADDRESS OF QUOTA CELL 
52 6 DO 0104 79 NOCNT: MOVL sFETCH QUOTA ADDRESS 
6 B6 107 0 INCW sBACKOUT CHARGE 
109 1 SETIPL + ;LOWER IPL TO WAIT AT IPL O 
FEF1' 38 10¢ § BSBW Ent pene, QUOTA Set UNIT QUOTA ore 1/0" FUNCTION TYPE 
1f 50 «OC 10F BLBC RO,E RROR s1F LBC QUOTA EXCEEDE 
9 87 We 4 DE CW a8) :CHARGE FOR 1/0 OF POPE 
1 ‘ 
50 OOF4 8F + 148 : ILLIO: MOVZWL #SS$_ILLIOFUNC,RO 3SET ILLEGAL 1/0 FUNCTION STATUS 
14 1 18 8 BRB ERROR é 
57 634 3 11 OFFLINE: CMPB #10$_DEACCESS,R7 sCHECK FOR DEACCESS 1/0 FUNCTION 
é 1 1 | BEQL PRIOSB sALLOW IT TO PROCEED 
57 91 1 § CMPB #10$_ACPCONTROL ,R7 sLIKEWISE FOR ACP CONTROL 
8D 13 Q1 9 BEQL PRIOSB 380 THAT A FILE ON AN OFFLINE DEVICE 
1 94 sMAY BE CLOSED 
50 0084 or 7 127 95 MOVZWL #SS$_DEVOFFLINE,RO sSET DEVICE OFFLINE STATUS 
3 } : 38 BRB ERROR : 
» €& 1 4 3B A ACCVIO: MOVZWL S*#SS$_ACCVIO,RO 3SET ACCESS VIOLATION STATUS 
1 ERROR: SETIPL # 3; ALLOW ear evata 
50 oD 134 PUSHL R :SAVE FINAL STATUS 
51 60 AS OD 136 64 MOVL ep PID(R4) ,R1 3GET PROCESS ID OF CURRENT PROCESS 
52 135A 4 cont g sSET PRIORITY CLASS INCREMENT 
53 04 AC A Q1 4 MOVZBL EFNCAP),R3 sGET SPECIFIED EVENT FLAG NUMBER 
ree” 0 01 4 BSBW ScusPoster 3;POST ab TA th EVENT FLAG 
1 1? ? 2 RET sRESTORE FINAL STATUS 
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407 
4 
: : ALLOCATE REQUEST 1/0 PACKET = WHEN THE LOOKASIDE LIST IS EMPTY. 
aii: 
FEB7' 3 412 ALLOC: ®8SBW EXESALLOCIRP gALLOCATE 1/0 REQUEST PACKET 
5 ff e3 41 BLBS u UCcCES :1F LBS SUCCESSFUL ALLOCATION 
AM 3 41h PUSHAW F os W_BIOCNT(R4) sASSUME BUFFERED 1/0 
359 €8 41 BLBS NACLOC :1F SET, BUFFERED 1/0 
EAQG 63 416 PUSHAW PCat zOLOCNT (RG) TELSE DIRECT 1/0 
4 1) 417 NALLOC: INCW sRESTORE COUNT, SINCE NO I/O STARTED 
D iY BRB {aly : 
; ; Convert section index to window address. 
50 a6 3 4 SECTION:CVTWL CCBSL WIND(R6) RO :S1GN EXTEND SECTION INDEX 
51 09000 09 D 5 MOVL @ACTLSGL ri GET ADDRESS OF PROCESS HEADER 
1 Pe $ ADDL PHDSL_P Se TBA ASOF F(R1),R1 jCALCULATE BASE ADDRESS OF SECTION TABLE 
FC A2 OC A149 D MOVL SECSL “UinpOUcRI) EROS “4(R :GET ADDRESS OF REAL WINDOW 
52. (11 8 BRB OSECT : 
3E AG OF 0 NODCNT: PUSHAW PCBSW_DIOCNT(R4) zSET FOR DIRECT 1/0 FUNCTION 
8F 1 1 BRB NOCNT : 
3E AG OB? § DIRECT: DECW PCBSW_DIOCNT(R4) ZCHARGE FOR ANOTHER DIRECT 1/0 
F619 4 ns BLSS NODCNT :BR IF NONE ALLOWED 
52 0000'oF oF 6 GTPKT: REMQUE @W*IOCSGL_IRPFL,R2 :GET 1/0 PACKET FROM LOOK ASIDE LIST 
cS) s«1D BVS ALLOC sIF VS EMPTY LIST 
49 ; BUILD DEVICE INDEPENDENT PART OF 1/0 PACKET 
Ade + R2 = IRP Address 
445; R - PCB Address 
444; - uCcB aaqress 
445; Rg - CCB Addre 
ta 2 & ° punct on n code (original) 
4g . = Channel index @ 16 + CIRPSM BUFIO -=- if buffered 1/0) 
49; ni = Function n code (transformed) 
: - Access mod 
0A A6 BG i SUCCES: INCW  CCBSW_I0C(R6) s INCREMENT OUTSTANDING 1/0 ON CHANNEL 
ASSUME IRP SHS | ZE EQ 8 3FOR FOLLOWING OPTIMIZATION 
53 82 TE MOVAQ Re)s R : COBY a ADDRESS AND ADD IRP$W_SIZE TO R2 
50 1%4AC 7 MOVQ ASTADR(AP),RO ANS AST ADDRESS AND PARAMETER 
58 a3 =6008C C4—C CO MO OEbSs ARS (AG) » JRPSL_ ARB(R ) er OP ACCESS RIGHTS BLOCK ADDRESS 
IRPSB-RMOD EQ 11 sFOR' SHIFT BELOW 
80 [CHECK FOR RST 


$Y 


peote QuoTA R11 enone QUOTA CHARGE 
Ad STCN 
58 58) «(18~=O7B 


4 
é 
pcos NT (RG) SCHARGE QUOTA 
5$: ASH : 
ASSUME Teese. VRE EQ 10 SFOR BISL BELOW 


wn" 
4 


2 


SYSQIOREQ = QUEVE 1/0 REQUEST SYSTEM service 4 02:27: AX/VMS Macro V VOo< 00 Page 1 SYS 
Fae Queue 7 REQUES 18: fp =|382 96:90:95 YEYS. SRCISYSQIOREQ.MAR;2 ad 19, v04 
82 OA00C4 BF 9 O1A0 4 BISL3 R11,#<<DYNSC_IRP@l PH IRPSC ENGTH>, (R2)* ; INSERT TYPE AND LENGTH 
08 se AG 8 §? DAs 4 : ROL sae thy wens R11;FETCH AND ALIGN baion RITY 
g2 60 AG p0 DIAD 4 $ MOVL  PCBSL“PID(R4), (R2)+ t INSERT PROCESS ID OF CURRENT PROCESS 
B 04 AC 18 4 MOVE  EFNCAP),R11 [MERGE EVENT FLAG NUMBER 
1854 ASSUME RPSL _AST EQ 16 :FOR MOVO BELOW 
1854 ASSUME RPSL ASTPRM EQ 20 [FOR MOVQ BELOW 
§2 $0 7D 0185 47 MOVa RO ( 2) SINSERT AST ADDRESS AND PARAMETER 
6B 10 9% 188 423 ROTL #16,R11,R11 SALIGN PRIORITY AND EVENT FLAG NUMBER 
1BC 0475 ASSUME IRPSL_WIND EQ 24 
82 04 ag dO «(018 org MOVL Leet win (ne) -(R2)4 :GET WINDOW ADDRESS 
97 14 1¢ 4? BGTR SECTION ‘BR IF SECTION INDEX 
1¢ £38 ASSUME IRPSL_UCB EQ 28 
82 55 p00 O1C2 4 6 NOSECT: MOVL RS, (R2)+ ZINSERT DEVICE UCB ADDRESS 
1054 ASSUME IRPSW FUNC EQ 32 
5B «SA (OBO OUO1CS: 4 : Vw R10,RT1 sMERGE 1/0 FUNCTION CODE 
108 4 SSUME IRPS$B_EFN EQ 34 
1€8 484 ASSUME IRPS$B-PRI EQ 3 
1€8 6485 ASSUME IRPSL 1088 EQ 36 
2 38 pO O1C8 =4 6 MOVL  R11,(R2)¢ s INSERT PRI,EFN, FUNC 
4 CO O1CB 4 ADDL #FOTACT-12,R8 ;POINT TO ACTION ROUTINE MASKS 
82 10 AC 00 1cE 4 8 MOVL IOSB(AP), (R2)+ SINSERT 1/0 STATUS BLOCK ADDRESS 
se. (6 De 4 ADDL  #P1,AP :POINT TO FIRST FUNCTION DEPENDENT PARAMETER 
105 490 ASSUME IRP$W_CHAN EQ 40 
105 491 ASSUME IRPSW°STS EQ 42 
82 59 10 9C OD 49¢ OTL  #16,R9,(R2)+ s INSERT CHANNEL INDEX AND STATUS 
7 01 cB 109 49 BICL3 #1,R7,R9 [PREPARE FOR VIRTUAL CHECK BELOW 
1DD 494 CLRO (Re+ :CLEAR PTE ADDRESS, BYTE OFFSET, AND BYTE CO 
62 D4 O1DF 495 CLRL = (R2) 
4C AS) 4 te 496 CLRL —_‘ IRPSL_DIAGBUF (R3) SINIT ORIGINAL PTE ADDR (LOG OR VIRT 1/0 
164 498 .IF DF CA$_MEASURE_IOT 
0000'CF oD 1E4 4 ist W*PASSGL_IOPFMPDB :DATA COLLECTION ENABLED? 
rele TEA : BsBW PRSSSTART_Ra SINSERT START OF 1/0 REQUEST MESSAGE 
Ter § .ENDC ; 
1EF 5 3S: SETIPL #15 >DISABLE SOFTWARE INTERRUPTS 
50 a3 0000 cF b0 1Fe MOVL W*PMSSGL_ LOPEMSEQ, IRPSL_SEQNUM(R3) ;INSERT PACKET SEQUENCE NUMBER 
‘CF «66 OIF INCL ay $l 1OPFMSEQ ~ INCREMENT 170 TRANSACTION SEQUENCE NUMBER 
1FC SETIPL PLS_A * TENABLE INTERRUPTS 
58 38 AS 00 OIF 4$: MOVL uee P-DEVCHAR(RS) ,R11 SGET DEVICE CHARACTISTICS FOR MANY 
11; . 
18 t CHECK IF REQUESTING PROCESS HAS PRIVILEGE TO ACCESS DEVICE 
af t NOTE: LOW BIT OF FUNCTION CODE WAS CLEARED ABOVE 
1 : ASSUME READVBLK-10$_WRITEVBLK EQ 1 
59 i if cRPL eir0 WRITEVBLK>RO VIRTUAL READ OR WRITE? 
00 58 OF CEC 8 13 BBC S pDEVSY _FOD.R11,5$ SIF CLR, NOT FILE DEVICE 


12 
vor-001 SuBUEYT A/REREBUEST SYSTEM semvacE °° ygnsepmt9ee ORsETsHs AML taece Nee Poe Ht, 


; THE FOLLOWING TEST IS NECESSITATED BY THE SYSTEM INITIALIZATION SEQUENCE 


o 


18 A TSTL [pes WIND (RS) sWINDOW ADDRESS SPECIFIED? 
1 BNEQ 0$ s1F NEQ YES 
50 58] BBC S*#DEV V=BINT RIT. 608 sIF CLR, DEVICE NOT MOUNTED 
» 3 BBC S*#DEVSV_FOR,R11,80$ sIF CLR, MOUNTED STRUCTURED 


; CONVERT VIRTUAL READ/WRITE FUNCTION TO ITS LOGICAL COUNTERPART 


57 1 5$ SUBL  § $*#10$_READVBLK-10$_READLBLK.R7 ;CONVERT TO LOGICAL FUNCTION 
20 A 1 SUBW  S*#10S“READVBLK-10$~READLBLK, IRPS$W_FUNC(R3) ; 
5B 00014040 8F BITL  #<DEVSA_SPL!- 3NOT SPOOLED, 

DEVSM_FOD!- ‘NOT FILE DEVICE 
DEVSASHR> R11 [AND NOT SHARABLE 

14 BNEQ 15$ tBR IF SATISFIED 

: CHECK IF AST QUOTA IS EXCEEDED 
38 AG 90$: STW PCBSW_ASTCNT(R4) sAST QUEUE ENTRY QUOTA EXCEEDED? 
4A BLSS 75$ SIF LEQ YES 


; SCAN FUNCTION DECISION TABLE CALLING EACH SELECTED ACTION ROUTINE WITH: 
RO = nent OF ACTION ROUTINE ENTRY POINT. 


Ri = SCRATCH. 
Re = SCRATCH. 
R35 = ADDRESS OF 1/0 REQUEST PACKET. 
R4 = CURRENT PROCESS PCB ADDRESS. 
RS = ASSIGNED DEVICE UCB ADDRESS. 
R6 = ADDRESS OF CCB. 
R? = 1/0 FUNCTION CODE BIT NUMBER. 
Re = FDOT DISPATCH ADDRESS. (UPDATED TO POINT TO ACTION ROUTINE MASKS) 
R9 = SCRATCH. 

SCRATCH 

SCRATC 


DRI = SOOO NAW WN SO OO NAN E WI OOO NAUE  O OOOO 


POONA RRR REPELS 


NB: in the Guide to Writing a Device Driver, we document the contents 
of RO as being the address of the FDT action routine entry point. 
This is seg only ceason that the dispatch code below does not read: 


Rae vey 5 


Should future gecoratvens wise to moerry ver Stepetching to use the 


; R10 = 
3 l= 
1 


63 : single dispatch instruct » they must r the responsibility for 
; breaking user written drivers. 
38 9¢ 72 110$: ADDL ple Re sPOINT TO NEXT FUNCTION MASK 
F9 6 7 BBC R7, (RB) ,110$ s1f CLR, THEN ACTION NOT SELECTED 
50 (08 ag 74 MOVL  8(R8),RO [GET ADORESS OF ACTION ROUTINE 
6 75 JSB #82 3CALL ACTION ROUTINE 
Fi 6 BRS 110$ 3 


H 12 
saeuare GotE EA BeRGQST SVT Servet REISE ARTS UOC NCE ARMM MOP 1 


D 
p 8 3 CONTINUE DECODING FUNCTIONS OTHER THAN VIRTUAL READ/WRITE 
D ° 
57 2 Db} 15$: CMPL $54108_LOGICAL ,R7 :VIRTUAL 1/0 FUNCTION? 
_ 4 £ BLSS 0$ SIF LSS YES 
4 
é $: : LOGICAL OR PHYSICAL 1/0 FUNCTION 
4 e 
4 } IFPRIV PHY J sPROCESS HAVE PHYSICAL I/O PRIVILEGE? 
57 1F 01 024 p CMPL “#T0 SRYSICAL, R? :PHYSICAL 1/0 FUNCTION? 
78 19 0248 59 BLSS LSS NO 
4 36 IFNPRIV LOG_10,60$ ‘PROCESS HAVE LOGICAL 1/0 PRIVILEGE? 
3 05 po ) MOVL #CCB$V_PHYCHKDON,R9O 
000" CF 9 6 34 MOVAB YOEXESCHKPHYACCES, R10 ‘SET FOR PHYSICAL 1/0 FUNCTION CHECK 
dp 659 ‘ 
2358 10° €1 Hy 3 40$: BBC S*#DEVSV_SHR,R11,80$ IF cer DEVICE NOT SHAREABLE 
61 38 50S: + R4 = PCB ADDRESS 
1 59 ; Re = UCB ADDRESS 
1€ 08 A659 FO 61 690 BBS R9 $CBSB_STS(R6) , 80S SHAS PROT CHECK BEEN MADE? 
6A é 66 1 JSB (R16) [CHECK ACCESS TO VOLUME 
0A 9 E 6 : BLBC = RO, 708 EXIT ON FAILURE 
B ¥ * HECK DON 
0008 a6 C5 BBSS R9,CCBS$B_STS(R6),55$ | :MARK PROT CHEC E 
12 f 4 55$: BRB 80$ CACCESS ALLOWED 
50 24 35 7 606 $ $:  MOVZWL #SS$_NOPRIV,RO ;SET NO PRIVILEGE STATUS 
OOFA 31 027 $:  BRW EXESABORT 
10 a3 d3 7 608 75$: TSTL RPSL_AST(R3) :DOES THIS REQUEST NEED AN AST? 
mY 7B. C6 BEQL N CAN'T BE QUOTA EXCEEDED. 
50 if 3¢ 70 610 MOVZUL ass EXQUOTA,RO iAst QUOTA EXCEEDED 
dos ; gle? 77$: BRB 40$ S INTERMEDIATE BRANCH 
4 BE ; PROCESS HAS ACCESS TO DEVICE 
. a 
57 1F 01 4 $13 80$: CMPL srg los. PHYSICAL,R7 SLOGICAL OR VIRTUAL 1/0 FUNCTION? 
Ao 19 7 618 BLSS iit LS 
2a a3. 0100 BFA 9 61 BISW  #IRPSM_PHYSIO, IRP$W_STS(R3) ;SET PHYSICAL 1/0 FLAG 
59 14AC OD F 0 MOVL <P6-P P1S(AP) ,R9 :GET ADDRESS OF DIAGNOSTIC BUFFER 
1 b BEQL 90 SIF EQL THEN NOT SPECIFIED 
3 ? Process diagnostic buffer parameter 
9 - IFNPRIV DIAGNOSE 605. ;PROCESS HAVE PRIVILEGE TO DIAGNOSE? 
51 0088 CS 0 $ MOV oof 'GET ADDRESS OF DDT 
51 14 Al ¢ A MOVZWL Dprs Sty ~POAGBUF ERT), R1 *GET SIZE OF DIAGNOSTIC BUFFER 
1 A ; BEQL SIF EQL NO DIAGNOSTIC FUNCTIONS 
p Ag PUSHL R :SAVE 1/0 PACKET ADDRESS 
Fp55° A BSB EXESALLOCBUF ZALLOCATE DIAGNOSTIC BUFFER 
8ED AB POPL R SRETRIEVE 1/0 PACKET ADDRESS 
C4 E AE BLBC Oa [IF LBC ALLOCATION FA I LUR oT 
46 AS 0 B MOVL R2.IRPSL BIAGBUF (R3) [SAVE ADDRESS OF DIAGNOSTIC BUFFER 
OC A —€ 0285 4 MOVAB 12¢R2),(R2)+ :SET POINTER TO DATA ARE 


SYSQIOREQ = QUEUE 1/0 REQUEST SYSTEM servict ' SEP- 7: AX/VMS Macro V04-00 Page 13 
yoeeoot Queue i — UF 132$Eb= 1386 SSiF5iFg YANCMES Hace, vOe00 - & 
62 9 »D MOV :SAVE USER ADDRESS OF DIAGNOSTIC BUFFER 
2a A3 80 BF A BISW eihPsh DIAGBUF ,IRP$W_STS(R3) ;SET DIAGNOSTIC BUFFER PRESENT 
FF 64 2 1308: BRW 
c ; $ LOGICAL 1/0 FUNCTION 
¢ 
= cS 6 4 ses LrPRIV LOG. 10.13 1308 6 ape sPROCESS HAVE LOGICAL I/0 PRIVILEGE? 
bo00' cr BF : G44 MOVAB W*EXESCHKLOGACCES, B10 SSET FOR LOGICAL I/O FUNCTION CHECK 
D 46 ; 
p 3 PHYSICAL OR LOGICAL 1/0 FUNCTION = CHECK ACCESSIBILITY OF DEVICE 
D 49 ° 
28 58 6 £0 02D3 650 308: BBS S*#DEVSV -SPL R11. 608 z1F SET, SPOOLED DEVICE 
A7 58 E1 0207 651 BBC S*#DEVSV-FOD,R11.77$  sIF CLR, NOT FILE DEVICE 
93 58 13 €1 0208 63¢ BBC SADEVSV-ANT.RIT. GOS SIF CLR. DEVICE NOT MOUNTED 
8 58 1 3 DF 65 BBC Ss #DEVSV_FOR, R116 $ IF CLR. MOUNTED STRUCTURED 
FF7B 31 0263 654 BR 0$ ; 


SYSQIOREQ 
voa=001 


~ 
vO 
Bea 
ow 
zm 
mo 


1S$Ep=198e B8:45:75 USYSTSRCHEVSErOncarman:2 | 88 Uf, ra: 


«SBTTL BUILD 1/0 PACKET FOR PAGE READ/WRITE 
E af tg ete - BUILD 1/0 seis eee one acne 
ESBUILD - Bul PACK PAGE WRITE 
E TSP B PAC OR SUAP. R 
ESBLOPKT Sup 8 SHARED MEMORY GLOBAL $ 
ESBLOPKTGSW - B SHARED MEMORY GLOBAL S 


THIS ROUTINE IS CA D QUEUE AN I/0 PACKET 
FOR A SWAPPING OR 


INPUTS: 


moO VO 
oM2D m 
Tor tor) 


SSSI SSSA AAA AAA OOO UII 


RAO ODNA NE WIN 9 OD NA UENO OO NIA UNE WII SO OO NAN E WN 9 OOVNOUE "OOOO 


“> 


DS ALREADY FILLED IN 


PE(RS) 

KTW, TEXESBLDPKTESR, AND EXESBLDPKTGSW 

N BY THE CALL. FOR ALL OTHER ENTRY POINTS 
BY THIS CODE. 


~ SYSTEM VIRTUAL ADDRESS OF SLAVE (PROCESS) 
THE CASE a> A GLOBAL PAGE READ. 
t ornth k PAGE READ. 


ANDARD Q1/0 AST A 
FOR SWAPI HIS PARAMETER IS CURRENTLY NOT USED 


IRPSL_ASTPRA(RS) = 
FOR PAGE READ CASE - THE CONTENTS OF THE FAULTED PAGE TABLE ENTRY 
SED TO RECOVER THE OR ears ie STORE ADDRESS WHEN A PAGE 
U FOR Y ON REFERENCE PAGE. 
TE CA STAN ARD Q1/0 AST PARAMET 
FOR SUAPION CASE - ADDRESS OF KERNEL AST ROUTINE TO CALL 


IRPSB_PRI(RS) = THE PRIORITY AT WHICH THE TRANSFER IS TO BE QUEUED 


IRP$B_RMOD (RS) 
FOR PAGE WRITE CASE - STANDARD Q1/0 MODE OF REQUESTER 
FOR ALL OTHER CASES - CONTAINS GARBAGE WHICH IS IGNORED 


IRPSB_EFN(RS) = 
FOR PAGE WRITE CASE - STANDARD Q1/0 EVENT FLAG NUMBER 
FOR ALL OTHER CASES = CONTAINS GARBAGE WHICH IS IGNORED 


IRPSL_IOSB(R5) = 
FOR PAGE WRITE CASE - STANDARD Q1/0 1/0 STATUS BLOCK ADDRESS 
FOR ALL OTHER CASES = CONTAINS GARBAGE WHICH IS IGNORED 


5 


| 
—Oo-+4 —CMrmm 


Pp 
Ss 
0 
Ss 
Y 
D 
E 
Y 
P 


oe 


IRPSL_AS 
FOR P 
PAG 


2m omc 
2 


W000 00 00000000 000 GD GNC GD CO ~~ 


—DOOoOOOooo0o0 oO 


DPQ AAAAAAAA AA AAA AAA AAA AAA AAA AAAA AAA AA AAA AAA APAAAIAOSISIOSAASAAS Cm 
SNIP DPA AAA AAA AAA AAA AAA AA AAA AA AAA AAIAA AAA A AAO AAO AAO 


; OUTPUTS: 


a 


6 
Cc 
m 
Cc 


K 
T'FOR PAGE READ/URITE — 1S-SEP=19be S8:45:19 EevSvsnctavsarORcacman:2 "9° 


scien 


~ 
vo 


oa 
ow 


UAT PAI WWII AAI AIA AAI AI OPINININININININ 4 SS ST 


ow 
Cc 
OD 
cr 
=) 
~ 
ou 


3 R4,RS ALTERED 


-ENABL LSB 


3; Note chet the differentiation between READ and WRITE operations is 
; encoded in the setting of the IRPSM_FUNC bit. 


IRPSM_FUNC = 1 => IOS_READPBLK ; Read operation 
IRPSM_FUNC = 0 => I0$- “WRITEPBLK ; Write operation 


XESBLDPKTGSR: : sBUILD PACKET FOR SHMGSD READ 
00520000 or DD PUSHL +7 Nalade SWAPIO ! IRPSM_VIRTUAL ! IRPSM_FUNC>@16 
0 1 ;TYPE/SIZE ALREADY SET IN PACKET 


cmmmaad > gs ;BUILD PACKET FOR SHMGSD WRITE 


Q 
é 

a | 

Bo : 

: i ; 

mt : 

& 7 : 

E : 

ge : 

E | 

e 6F 5 : 

fe 558 

00500000 8F oD EE g 0 #<IRPSM_SWAPIO ! IRPSM_VIRTUAL> : 

28 11 F t : 20$ STYPE/SIZE ALREADY SET IN PACKET : 

F6 733 EXESBLDPKTSWPR:: BUILD SWAP READ PACKET : 

00520000 8F oD re 734 PUSHL #<IRPSM_SWAPIO ! IRPSM_ VIRTUAL | IRPSM_FUNC>@16 ; 

16 «11 FC g : 10$ : 

FE 737 EXESBLDPKTSwWPU:: sBUILD SWAP WRITE PACKET ; 

00500000 8F DD OcFE 7 8 PUSHL #<IRPSM_SWAPIO ! IRPSM_ VIRTUAL>@16 3 

OE 11 04 139 10$ : 

741 EXESBUILDPKTW: : -BUILD 1/0 PACKET FOR PAGE WRITE : 

00140000 8F oD 4 148 PUSHL —#<IRPSM_PAGIO ! IRPSM_VIRTUAL>@16 : 

10 «11 ¢ 243 BRB 20$ ; ; 

E 745 EXESBUILDPKTR:: sBUILD 1/0 PACKET FOR PAGE READ ; 

00160000 8F DD OF 246 PUSHL  #<IRPSM_PAGIO ! IRPSM_VIRTUAL ! IRPSM_FUNC>@16 : 

goongges 8F FO 0314 248 10$: —_—INSV #<DYNSC 1Rpag ' IRPSC -LENGTH>,~_ ;SET ogi : 

08 A 18 1A 7 #24, TRPS$W_SIZE(R5) ~ ;AND TYPE OF PACKET : 

D 1 ? : 20$: MOVL RS RPSL vAPYE (R5) :SYSTEM VIRTUAL ADR OF PAGE TABLE ENTRY : 

ee a3 2 D 7 MOVL 4 * IRPSL~ ~DYAGBUF (RS) [NEED COPY OF ORIGINAL FOR SEGMENTED XFERS F 

5 OD 6 7 2 MOVL SPACKET ADDRESS TO R3 : 

55 GE «OT 11 EE (38938 EXTV —- #<ERPSV_FUNC+16>,#1, (SP) RS : 

—€ 755 ; RS = -1 for read ; 

; § :; RS = O for write : 

— 7 : ASSUME <IO$_WRITEPBLK + 1> EQ 10$_READPBLK ; 

; ? 3 ASSUME <WCBSL_WRITES - 4> €Q WCBSC_READS : 

D fet INCL WCBSL WRITES(RZ)CRS] RE BSE, 32 ut OncPTont ope : 

20 a3 35 A 16 SuBus #108 -WRITEPBLK 1 RPSW_FUNC(R T REAL FUNCTION CODE : 

55 8E OOOOFFFF BF CB , t 3 BICLS #*XFFFF7(SP)4+,R GET S$ BITS AND CLEAR CHANNEL ; 

F is ASSUME IRPSW_STS EQ IRPSW_CHAN+2 3 

28 a3. SS—siéi ee 7 MOVL RPsu CHAN(R3) :SET CHANNEL AND STATUS ; 

10 Ag D 43 768 MOVL ucéet ORGU RGUCB(R2) ,RS [GET UCB ADDRESS FROM WINDOW : 

1c a3. 55D 47 7 MOVL  R5, IRPSL_UCB(R3) ?SET UCB ADDRESS ; 


<y" 


eSUSUEMASERVECT re TSCSERSTBNE 98 i #5 YANAVRS acre vO4s00 | Page 16, 
oH tO alBe A PIOCR PIRES IEE Enc 

gee ak PARB CRG), FasL Pera: OACCE GHTS BLOCK ADDRESS 
Ore che 


{R3) 
Fre L ABCNT T(R3) 
R1, IRPSL_OBCNT(R3) 


DF ,CAS_MEASURE_IOT 
PMSSSTART_RQ zs INSERT START OF I/0 REQUEST MESSAGE 


scien’ 


™~ 

vo 

ee ee i ei ee 
me 

nh 

o- 


A 


oc ie 


58 A3 é 
32 r 
& 


46 a3 “i BYTE COUNT 


YTE COUNT 


1OCSQNXTSEG1 sO EE TORN FIRST SEGMENT OF THE I/O REQUEST 
LSB 


COCOONS On 


BNAUES GO OONAULS UO 
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sscuar 


-—ameo 
Ouse 


oa 
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ounNgS 
Mmoaoe 


— 
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Sa a i> i Jin Di in, ini Sin Sin Din itn Jin Dit Dit Bin. itn. Jit Ji Dit Sit tn 


of nNOS 


oO 


- ENABL 
EXESABORTIO: : 
CLRL 


BRB 
caneshenes 1 tani 
EXESFINISHIO:: 

INCL 


mov eue 
10$: INSQU 
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SYS.SRCISY SQ1OREQ. MAR; 2 
~SBTTL COMPLETE 1/0 OPERATION 
EXESABORTIO = ABORT 1/0 OPERATION 


THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE AC 
TO FINISH AN 1/0 OPERATION WITHOUT RETURNING THE FINAL I/0 


EXESFINISHIO = FINISH 1/0 OPERATION 


THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION TABLE ACTION ROUTINE 
TO FINISH AN I/0 OPERATION AND RETURN THE FINAL I/O STATUS. 


EXESFINISHIOC = FINISH 1/0 OPERATION WITH SECOND 1/0 STATUS LONGWORD CLEARED 
THIS ROUTINE IS 445 TO FROM A FUNCTION DESCISION TABLE ACTION ROUTINE 

TO FINISH AN_I/0 OPERATION AND RETURN THE FINAL I/O STATUS WITH THE 

SECOND 1/0 STATUS LONGWORD CLEARED. 


INPUTS: 


TION ROUTINE 
/0 STATUS. 


FIRST LONGWORD OF FINAL 1/0 STATUS. 
SECOND LONGWORD OF ci 1/0_ STATUS. 
ADDRESS of 1/0 REQUEST PACKET. 
CURRENT PROCESS PCB ADDRESS. 
UCB ADDRESS OF DEVICE UNIT. 


ABORT 1/0 OPERATION 
IRP$L_10SB(R3) CLEA R ADDRESS at 1/0 STATUS BLOCK 
B #ACBSV_QUOTA IRPSB_ RMOD(R3),10$ ;IF CLR, NO AST SPECIFIED 
INCW PCoSUK RSTCNT(R4 bnTE AVAILABLE AST QUEUE ENTRIES 


ATION 
TIONS COMPLETED 
MOVQ STATUS 
Pen 
SOF TINT E INTERR 


BRB 
-DSABL 


US 
ae aaa ieee QUEUE 


(1) 


<u 
RA 


n 
—< 
74) 


N 12 
SYSQJOREG YSTEM SERVICE “SEP-1984 02:27:34 YAX/VMS Macro v04-00 Page 1 
rita ty SRIVER 1SrSEb= 138s SS: FbiFS PRNCVES Hace yOkeOo «Page 18, 
a .SBTTL QUEUE 1/0 PACKET TO DRIVER 

 EXESQIODRVPKT = QUEUE I/O PACKET TO DRIVER 


; THIS ROUTINE IS JUMPED TO FROM A FUNCTION DE 
TO QUEUE AN 1/0 PACKET TO THE APPROPRIATE DR 


; INPUTS: 


CISION TABLE ACTION ROUTINE 
IVER. 


R3 = ADDRESS OF 1/0 ws et PACKET. 
R4 = CURRENT PROCESS PCB ADDRESS. 
R5 = UCB ADDRESS OF DEVICE UNIT. 


; OUTPUTS: 


THE 1/0 PACKET IS QUEVED BY PRIORITY IN THE alate DEVICE . 
QUEUE AND A NORMAL COMPLETION STATUS IS RETURNED. 


XESQIODRVPKT:: sQUEVE 1/0 PACKET 
BSBB EXESINSIOQ papas 1/0 PACKET IN DEVICE QUEUE 
BRB EXESQIORE 
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~SBTTL EXESALTQUEPKT = Call driver ALTSTART entry point 
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: EXESALTQUEPKT = activates a driver at its ALTSTART entry point 
Routine description: 


Locates and calls a driver entry point supplied as an alternate 
START 1/0 entry point. Does not test for unit busy before the 
call. Exits by returning to caller. 


The routine expects to gain control at or below driver fork 
level. The routine raises to driver fork IPL before the call, 
and restores the previous IPL before returning to its caller. 


Inputs: 
R3 - address of pecker or buffer 
R5 - address of UCB 

Outputs: 


690909 C909 0968 SI NINN NIN NOP OA OOO 


NAMES WINS ODNAUE WIN O ODNAOU LS WO OONOAUSE 


Control returns to the requesting process. 
The routine destroys RO-R1. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ss Se Sse Sete tse 


OOQCCCOCCOOOOOCOOOOOOCOOo 
AAA ns 
DWDODOOOOOOOOOOOOOOOVOOOOWOOOOO00NO 


DUG DOODOOOODOOODOOOOOODOOO0O000000000000 


2.09 09 C9 CD CD CD Cd Cd Cd Cd Cd G0 Cd CD CD. 0D CD. 0D 0D 0D C9 GD 09 09 09 0D 0909000900690 
O00 000000000 


9 EXESALTQUEPKT:: 3; Start 1/0 in driver. 
9 DSBINT UCBS$B_FIPL(RS) 3; Raise to fork IPL. 
50 0088 CS 00 A UCB$L_DDT(R5),RO ; Get address of unit's DDT. 
1c BO 16 A JSB @DDTSC_ALTSTART (RO) : Call alternate start 1/0 routine. 
A 3; Reenable interrupts. 
05 AB ; Return to caller. 
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SYSQIOREQ - QUEUE 1/0 REQUEST SYSTEM Service 16-SEP=19 7:34 VAX/VMS Macro v04-00 Page 20 SYS 
ibaa ty QUEUE I/0 PACKET TO ACP 18: Hetty 94: 5:19 ESYS.SRCIJSYSQIOREQ.MAR; 2 - TD v04 
aC 99 .SBTTL QUEUE 1/0 PACKET TO ACP ; 
AC EXESQIOACPPKT = QUEUE 1/0 PACKET TO ACP ; 
AC : THIS ROUTINE IS JUMPED TO FROM A FUNCTION DECISION. TABLE ACTION ROUTINE ; 
AC 4 : TO QUEUE AN 1/0 PACKET TO THE APPROPRIATE ACP OR ; 
AC 6 : INPUTS: : 
AE 8 8 : R3 = ADDRESS OF 1/0 REQUEST PACKET. ; 
AC 909 : R4 = CURRENT PROCESS PCB ADDRESS. : 
aC nf RS = UCB ADDRESS OF DEVICE UNIT. ; 
AC I ; CURRENT IPL MUST BE AT SYNCH OR HIGHER LEVEL. ; 
AC $14 : OUTPUTS: z 
O3AC gig : R4 ALTERED 
O3AC (917: THE 1/0 PACKET IS QUEUED AT THE END OF THE APPROPRIATE ACP OR XQP QUEUE 
O5AC 18 : AND A NORMAL COMPLETION STATUS IS RETURNED. 
AC 920° 
ane 921 EXESQIOACPPKT:: ;QUEUE 1/0 PACKET TO ACP 
52 34.05 D 3AC 9 2 MOVL  _UCBSL -VCB(RS) RE [GET ADDRESS OF VCB 
52 «10 a2 BO 9 MOVL  VCBS$LAQB(R2).R [GET ADDRESS OF ACP AQB 
OC A2 DS 03B4 924 TSTL  AQBSL-ACPPID(R2) [GET ADDRESS OF AQB 
19 13 0387 925 BEQL Xap SEQL IF IT'S FOR XQP 
60 10 0389 9 6 BSBB  —- EXESINSERTIRP SINSERT I/O PACKET IN ACP QUEUE 
: 1 9 BNEQ EXESQIORETURN SIF NEQ NOT FIRST ENTRY IN QUEUE 
51 OCA p D 928 MOVL  AQB$L_ACPPID(R2),R1 'GET ACP PROCESS ID 
FC3C* C1 929 BSBW SCHSWAK [WAKE UP ACP PROCESS 
0450 €E8 O03c4 9 0 BLBS _—RO, EX XESGIORETURN :IF LBS ACP STILL PRESENT 
(7 9 BUG CHECK NONEXSTACP SNONEXISTENT ACP PROCESS 
(a 9 2 EXESQIORETURN: : SQUEUE 1/0 REQUEST COMPLETION STATUS RETURN 
50 01 3c O3cB 9 V #SS$_NORMAL RO [SET NORMAL COMPLETION STATUS 
CE 934 QIORETURN: SRETURN SPECIFIED STATUS 
ce 935 SETIPL #0 TALLOW ALL INTERRUPTS 
04 D 3 6 co RET : 
55 60 A3 9E ¥ 9 : *  MOVAB siethcast FOFL (RS), RS SUSE CDRP PART OF IRP AS ACB 
6 9 SETIPL #IP TALLOW PAGEFAULTS 
F2 AF OOF D9 940 PUSHAB QIOR SRETURN ADDRESS FROM EXESQXQPPKT 
DC hg ; FALL THROUGH TO XQP QUEUEING ROUTINE IMMEDIATELY FOLLOWING. 
be ae : RSB FROM THIS ROUTINE RETUR Ns TO EXIT ABOVE. 
DC «945° 
DC 4 .SBTTL EXESQXQPPKT - QUEUE 1/0 PACKET TO xQP 
DC 348 : EXESQXQPPKT = INSERT 1/0 PACKET IN XQP QUEUE 
nya : THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN THE XQP QUEUE 
DC > AND START THE THREAD OF EXECUTION IF IT IS THE ONLY REQUEST. 
DC : CALLING SEQUENCE: 
pC 4: BSB/JSB EXESQX - THIS IS EITHER CALLED FROM Q10 OR 
pe «955: AS A SPECIAL KERNEL AST INVOKED BY IOPOST. 
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SYSQIOREQ = QUEUE 1/0 REQUEST SYSTEM S$ aVICE 16-SEP-1984 02:27:34 VAX/VMS Macro V04-00 Page 21 
v04=001 EXESQXGPPKT = QUEUE 1/0 BRcReS TO xaP 13-36-1382 er LEYS SRC] YSOIOREO MAR: 2 vm) 
pc : 
DC : t INPUTS: 
DC § ; R4 = CURRENT PROCESS PCB ADDR ESS. 
be ; R5 = ADDRESS OF TEMP ACB PART OF IRP. 
be 3 OUTPUTS: 
4: : ; RO = status from SCHSQAST. 
DC : : IF SUCCESS: 
pC ; A_KERNEL AST IS QUEUED TO THE DISPATCH ROUTINE OF THE xaQP 
DC 368 ; IF NO PACKETS WERE ALREADY ON THE REQUEST QUEUE OF THE xaP. 
DC 396 ; THIS ROUTINE MUST BE CALLED AT IPL ASTDEL SO THAT THE 
DC «971: IRP CANNOT BE LOST (BECAUSE OF PROCESS DELETION) TWAT iL IT 
4: 4 3 IS PLACED ON The XQP REQUEST QUEUE. 
ae ie 
pC 976 EXESQXQPPKT:: 
50 09900000" GF oO O3DC 97 MOVL  G*CTLS$GL_F11BXQP, RO  ;ADDR OF XQP QUEUE HEAD 
4 AS AO AS 9E O3E 978 MOVAB CDRP L_IOQFL(RS), = SADDRESS OF IRP 
EB 97 ery RSTPRM(R5) [1S AST PARAMETER 
20 90 Es 980 MOVB Hat t akERNE sACBSM _NODELETE,- ;KERNEL MODE, DON'T DELETE IRP 
OC AS 6004 OD EC 38s MOVL pe te sry tte ACBSL_PID(RS) ;COPY PID. 
10 AS 08 AO OD Fi 9 MOVL F11BS$C_DISPATCH(RO), ACBSL ASTERS) -XQP DISPATCHER ADDRESS. 
52 0 Fé 984 MOVL #PRI$_RESAVL, R2 :$ arte R WAITING FOR A LOCK. 
FCO4" 3 F 989 BSBW  SCHSQAST SUEUE T AST. 
5 O3FC 986 RSB [AND RET URN 
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SYSQIOREQ = QUEVE 1/0 REQUEST SYSTEM SERVICE SEP-1984 :27:34 VAX/VMS Macro V04-00 Page 
itae ty INSERT 1/0 PREReS IN UNIT QUEUE 1$-S65} 382 96:90:35 SYS. SRCISYSQIOREQ. MAR; 2 . #4) 
ED .SBTTL INSERT 1/0 PACKET IN UNIT QUEUE 
ED + EXESINSIOQ = INSERT I/O PACKET IN UNIT QUEUE 
FD : THIS ROUTINE IS CALLED TO INSERT AN I/O PACKET IN A UNIT QUEUE AND CALL 
FD 33 THE APPROPRIATE I/O DRIVER IF THE UNIT IS NOT BUSY. 
ED 5 : INPUTS: ‘ 
FD 39 ; R3 = ADDRESS OF I/O REQUEST PACKET. 
ED 38 : R5 = UCB ADDRESS OF DEVICE UNIT. 
FD 1 : 
FD 1 ? EXESINS10Q:: s INSERT IN 1/0 QUEUE 
FD 1 2 DSBINT UCBSB_FIPL (RS) 3RAISE IPL TO FORK LEVEL 
6A ASB 4 1 INCW UCBSW_QLEN(R5) 3 Bump device queue len 
05 64 A508 407 1004 BBSS  #UCB$0_BSY,UCBS$W_STS(R5),10$ ;IF SET, THEN DEVI 'f IS BUSY 
Feri 4 c 5 BsBu JOCSINITIATE ; INITIATE 1/6 FUNCTION 
52 4C A DE 411 1 a7 10$ MOVAL UCBSL_IOQFL(RS),R2 [GET ADDRESS OF 1/0 QUEUE LIST HEAD 
04 1 413 1 : BSBB.sC- EXESINSERTIRP SINSERT 1/0 PACKET IN DEVICE QUEUE 
ws 417 09 208 ENBINT SENABLE INTERRUPTS 
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RITY -SEP=1 SYS.SRCIS SYSQIOREQ. MAR; 2 (1) 
«SBTTL INSERT 1/0 PACKET IN QUEUE BY PRIORITY 
EXESINSERTIRP = INSERT 1/0 PACKET IN QUEUE BY PRIORITY 


eattee IS CALLED TO INSERT AN 1/0 PACKET IN A SPECIFIED QUEUE BY 


INPUTS: 


Re = ADDRESS OF QUEUE LISTHEAD. 
R35 = ADDRESS OF 1/0 PACKET. 


CURRENT IPL MUST BE THE FORK LEVEL OF THE RESPECTIVE DRIVER PROCESS 
OR HIGHER. 
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OUTPUTS: 


O PACKET IS INSERTED IN THE SPECIFIED QUEUE BY PRIORITY AND 
* CONDITION CODE IS RETURNED TO THE CALLER. 


*Z" = 1 = ENTRY WAS FIRST ENTRY IN THE QUEUE. 
*Z' = 0 = ENTRIES WERE ALREADY IN THE QUEUE. 
R2 AND R3 ARE PRESERVED ACROSS THE CALL. 


EXESINSERTIRP: : INSERT 1/0 PACKET IN QUEUE BY PRIORITY 
MOVL R2,R1 :COPY LISTHEAD ADDR 
10S: MOVL TRPSL 1OQBL(R1),R1 2GET ADDRESS OF NEXT ENTRY 
CMPL sEND OF QUEUE? 
BEQL 2 th EQL YES 
eres RP$B_PRI(R3), IRPSB -PRICRI) a PRIORITY GREATER? 
20$ a IRPSL_IOQFL(R3),IJRPSL_IOQFL(R1) ;INSERT PACKET IN 1/0 QUEUE 
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SYSQIOREQ = QUEVE 1/0 REQUEST SYSTEM Service “SEP=-1 AX/VMS Macro V04-0 P 4 
Symbol table 18: opie 98 9g: i$ SYS. SRS a6eeidRca. MAR: 2 _ ch 
ACBS$B_RMOD = XESBLOPKTSWPW FE RG 1 
ACBSL_AST = 18 HESBUILDPKTR GOO0080E RG 1 
ACBSL_ASTPRA = 1 XESBUILDPKTW RG 1 
ACBSL_PID = XESCHKLOGACCES ereereee =X 1 
ACBSA_ ame ETE = 5X CHKPHYACCES aeeeeren =X 1 
ACBSM_QUOTA = XESCHKRDACCES eeeeeeee X01 
ACBSV-QUOTA = EXESCHKWRTACCES aeeeneee 8 6X 1 
Th vi0 5 R 4 EXE FINISHIO 3! RG 1 
ALLO 146 R 1 XESF INISHIOC F RG 1 
AOBSL ACPPID = of BRESi MSG IRP 41B RG 1 
ASTADR = EXESINSIOQ FD RG 1 
ASTPRA 18 Hatt 75 RG 1 
BUGS_NONEXSTACP eeneeeeer = = X 01 XESQIOACPPKT AC RG 1 
cc = 9 EXESQIODRVPKT 95 RG 1 
CCB$B_STS = EXESQIORETURN CB RG 1 
CCBSC_LENGTH = EXESQXQPPKT oc 1 
C “uC = FT ipst bisP UOTA aaneenee 8 6X 1 
a) = & F11BSL DISPATCH 0 8 98 
CCBSM_RDCHKDON = 4 FOTACT™ = 00 1 
CCBSM_WRTCHKDON = : 8 FUNC = 00 oC 
CCBSV~LOGCHK = 4 GTPKT 000017A R or 
CCBSV_PHYCHKDON = 5 ILLIO 116 R 1 
CCBSV_ROCHKDON = 000 § 10$M_FCODE = F 
CCBSV_WRTCHKDON = 3 10$_ACPCONTROL = 8 
ccB = 0000000A 10$_DEACCESS = 4 
CORPSC_10QFL = FFEFFFA 10$_LOGICAL = 000 E 
CHAN = $88 00 1O0$_PHYSICAL = 3 F 
enoon 3 OD2 R 01 10$_READHEA = 00 E 
1 000040 R 1 10$_READLBLK = 021 
ait _CCBBASE eeeneeee 8 Xx 1 10$_READPBLK s 5 
CTLS$GL_F11BxaP eeenerer =X 1 10$_READPROMPT = 
CTLSGL_PHD aeeeeeee =X 4 I10$_READTRACKD = 10 
CTLSGW" CHINDX eeaneere §6X 1 10$_READVBLK = 31 
DACSPNB 00052 01 10$_REREADN = 1 
DDTSL_ALTSTART = 10$_REREADP = 
DDTSL—FDT 2 1O$-TTYREADALL = A 
DDT$W_D 1 AGBUF 2 10$"TTYREADPALL = 
DEVSM~FOD = 10$-VIRTUAL = é 
DEVSM~ SHR = 10$ "WRI TECHECK = A 
DEVSM_SPL = 1O$_WRITECHECKH 5 18 
DEVSV_FOD = 10$_WRITEHEAD = : 3 
VS$V_FOR = 10$_WRITELBLK = 
DEVSV_MNT = 10$_WRITEPBLK = 
DEVSV_SHR = Hs i 2 1 
VSV_SPL = 1O$_WRITETRACKD 2 of 
DIRECT 01 10$_WRITEVBLK = 0 
DYNSC_IRP : 1OCSGL_IRPFL teeeeeee =X 01 
EFN IOC$GL_PSBL eeneeere = §6X 1 
ERROR 1 LOCSINTTLATE eeeeeeee xX Ot 
ERRORB 1 1OCSQNXTSEG eenceeee X OT 
Exe TIO 1 10S8 
XESALLOCBUF eeneeree § xX 1 IOTYPE 
EXESALLOCIRP eeereees 1 IPL ~ASTOEL 
EXESAL PKT 99 RG 1 IPL$_10POS 
pxs soc DPK rGse E6 RG 1 IPL$_ SYNCH 
EXESBLDPKTGS EE RG 1 Hes dy 
EXESBLDOPKTSWPR F6 RG 1 RPS$B_PRI 
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SYSQIOREQ = QUEVE 1/0 REQUEST SYSTEM service 16-SEP-1984 02:27:34 VAX/VMS Macro V04-00 
Symbol table 188 oats 7 9¢: 5:19 CSYS.SRCISYSQIOREQ.MAR;2 
WCBSL_READS = 4 
WCBSL_WRITES s 
WRITE_ACCESS R 4 
xQPp D2 R 1 

$rocem naman awe oaae > 

! Psect synopsis ! 

¢eocecenesenaenaananae + 
PSECT name Allocation PSECT No. Attributes 

ABS 8 09 ( 3 9 ( 9-3 NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOV 
. BLANK . ( 1074.) ( 1.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOV 
$$ 0000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOV 
jcmennenennenmnenneswannt 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00:00.07 :00:00. 
Command processing 187 8: : 0:64 if 0:9 3 
Srebel tanks cert af 6:13 00:00; 1 
e sor :00:04. :00:09. 

Pass 2 19 3: 204.7 0: 09: 7 
Symbol table output 2 :00: 8 -§ 0:00: 36 
Psect synopsis output 0:00:00. 0:00:00.0 
Cross-reference output 8: 3399-9 38: 9:99 -8 
Assembler run totals 94 :00:34.1 :01:16.94 


The working set Limit was 1800 pages. 

140721 bytes (275 pages) of virtual memory were used to buffer the intermediate sede. 

There were 140 pages of symbol table space allocated to hold 2622 non-local and 28 local symbols. 
source lines were read in Pass 1, producing, | object records in Pass 2. 

ma 


42 pages of virtual memory were used to define cros. 


Seeceerewte ss ees seas es ese ea} 


Macro library name = —i—itséCMccS: de Fine 

“Hee UAgB: Fave JGISTARLET ALB; 2 ‘f 

TOTALS (all Libraries) 37 

2754 GETS were required to define 37 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSQIOREQ/0BJ=0BJ$:SYSQIOREQ MSRC$:SYSQIOREQ/UPDATE=(ENHS: SYSQIOREQ) +EXECMLS/LIB 


re it 


EC BYTE 
EC BYTE 
EC BYTE 
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